Imports Microsoft.VisualBasic

Namespace MB.PsychCal.DAL
    Public Class ArticleDetails

        Sub New()

        End Sub
        Public Sub New(ByVal id As Integer, ByVal madeby As String, ByVal subject As String, _
        ByVal message As String, ByVal addeddate As DateTime, ByVal isexpired As Boolean)
            Me.ID = id
            Me.madeby = madeby
            Me.subject = subject
            Me.message = message
            Me.addeddate = addeddate
            Me.isexpired = isexpired
        End Sub

        Private _id As Integer = 0
        Private _madeby As String = ""
        Private _subject As String = ""
        Private _message As String = ""
        Private _addeddate As DateTime = DateTime.Now
        Private _isexpired As Boolean = False


        Public Property ID() As Integer
            Get
                Return _id
            End Get
            Set(ByVal value As Integer)
                _id = value
            End Set
        End Property

        Public Property madeby() As String
            Get
                Return _madeby
            End Get
            Set(ByVal value As String)
                _madeby = value
            End Set
        End Property

        Public Property subject() As String
            Get
                Return _subject
            End Get
            Set(ByVal value As String)
                _subject = value
            End Set
        End Property

        Public Property message() As String
            Get
                Return _message
            End Get
            Set(ByVal value As String)
                _message = value
            End Set
        End Property
        Public Property AddedDate() As DateTime
            Get
                Return _addeddate
            End Get
            Set(ByVal value As DateTime)
                _addeddate = value
            End Set
        End Property

        Public Property isexpired() As Boolean
            Get
                Return _isexpired
            End Get
            Set(ByVal value As Boolean)
                _isexpired = value
            End Set
        End Property
    End Class
End Namespace